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SAPLOT:  A  PROGRAM  FOR  THE  ANALYSIS  OF  DATA  COLLECTED  WITH  A  LECROY  S500SA 

SIGNAL  AVERAGER 


1.  INTRODUCTION 

The  short,  bright  pulses  that  can  be  produced  at  high  repetition  rates  by  modern  lasers 
permit  the  long-range  analysis  of  trace  atmospheric  species  via  Differential  Absorption/Differential 
Scattering  Lidar  (DIAL/DISC)  techniques.  In  the  laboratory,  nascent  species  with  lifetimes  in  the 
nanosecond  time  regime  and  rapid  molecular  and  atomic  transitions  can  be  detected  and  measured. 
To  obtain  accurate  measurements,  a  fast  data  acquisition  system  with  the  ability  to  average  sub¬ 
microsecond  transient  signals,  such  as  the  LeCroy  3500SA  signal  averager  in  our  laboratory,  is 
required. 

The  3500SA  signal  averager  acquires  signals  through  plug-in  CAMAC  (Computer 
Automated  Measurement  And  Control,  IEEE-583)  modules.  The  LeCroy  data  acquisition  software 
(SA  and  SA16)  controls  transient  recorder  modules  with  sampling  rates  as  fast  as  200  MHz 
(5— nanosecond  sample  interval),  can  average  256  to  8192  (0.25  to  8k)  point  waveforms  at  a  rate  of 
700k  points  per  second  (i.e.,  a  lk  waveform  at  700  Hs),  and  can  store  65536  full  scale  waveforms  in  a 
separate  24-bit  by  8k  histogram  averaging  memory. 

Included  among  the  data  analysis  features  are  routines  for  archiving  data,  Fast  Fourier 
Transforms,  background  subtract,  and  peak  search  and  area  computations.  The  system  can  also  be 
programmed  in  FORTRAN  and  MACRO  Assembler  *  under  the  CP/M  operating  system,  allowing 
the  user  to  customize  data  acquisition  and  analysis.  Since  data  acquired  with  the  SA  and  SA16 
software  are  stored  in  a  three-byte  integer  format,  a  conversion  routine  is  required  to  transform  the 
data  into  a  FORTRAN-compatible  format  for  user-developed  analysis  routines.  A  listing  of  the 
FORTRAN  program  SAPLOT.OVL  (Signal  Averager  PLOT.OVerLay),  which  performs  the  format 
conversion  and  facilitates  custom  data  analysis,  is  included  at  the  end  of  this  report.  Disk  copies  of 
the  program  that  are  ready  to  run  are  also  available  upon  request  from  other  research  groups  using  a 
LeCroy  3500SA  at  CRDEC. 

2.  SUBPROGRAMS 

2.1  SAPLOT 

The  CP/M  operating  system  uses  an  area  of  system  memory,  located  at  address  005CH, 
called  the  Transient  File  Control  Block  (TFCB)**  for  random  access  file  operations.  The  TFCB 
contains  the  drive  code,  name,  type,  and  sue  of  a  file  being  accessed.  When  a  program  is  entered  for 
execution  at  the  system  prompt,  the  operating  system  scans  the  remainder  of  the  line  following  the 
program  name  and  writes  the  information  given  there  into  the  TFCB.  SAPLOT  calls  a  MACRO 
subroutine  called  GETIT  to  read  the  TFCB,  open  the  designated  file,  and  read  128-byte  data  blocks 
into  memory.  GETIT,  a  subroutine  of  the  MACRO  program  GETIT. MAC,  was  developed  from  a 
set  of  routines  found  in  the  file  copy  program  COPY. ASM  published  in  Ken  Barbier’s  book  on 


*  Microsoft  FORTRAN-80  and  MACRO-80. 

**  Digital  Research  Corporation,  CP/M  Operating  Syttem  Manual.  1983. 
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CP/M  assembly  language  programming.*  If  the  Hie  named  in  the  TFCB  can  not  be  found  and 
opened  on  the  designated  disk,  GETIT  prints  an  error  message  and  returns  an  error  code  to 
SAPLOT.  Program  execution  is  then  transfered  to  the  GETIT  subroutine  NXTFIL  (NeXT  Fli,e), 
which  requests  a  new  file  name. 

The  SA  software  allows  the  user  to  store  up  to  a  page  of  comments  as  a  data  header. 
Once  the  Hie  is  read  into  the  memory  space  BUFFER  that  was  set  aside  by  the  program,  GETIT 
prints  the  file  on  the  screen  until  the  "control  Z”  header  terminator  is  reached.  It  then  stores  the 
address  of  the  third  data  point  (the  first  two  points  are  not  true  data  points)  and  returns  control  to 
SAPLOT.  The  three  bytes  of  each  data  point  are  then  read  individually  from  memory  by  the 
GETIT  subroutine  TRNSB  (TRaNslation  SuBroutine),  converted  to  Floating  Point  format,  and 
compared  to  values  in  memory  to  determine  the  minimum  and  maximum  values  in  the  file.  The 
library  call  HMFWR  (Histogram  Memory  Floating  point  WRite)**  is  then  used  to  store  the  data  in 
the  histogram  memory  for  subsequent  analysis. 

Program  memory  in  the  LeCroy  3500  is  normally  limited  to  64k  by  the  8-bit  Intel  8085A 
micro-processor.  To  maximise  the  available  program  memory  for  data  analysis,  an  overlay 
subprogram  is  used.  When  the  program  SAPLT2  is  called  by  SAPLOT  through  the  OVLAY  call, 
data  not  protected  is  destroyed  as  the  new  program  is  read  into  memory.  Information  shared  by  the 
two  programs  must  be  stored  in  either  the  histogram  memory  or  be  listed  in  a  BLOCK  DATA 
subroutine  and  in  a  COMMON/SHARED  statement  in  each  FORTRAN  program  (see  the  System 
S500  Operator’s  Manual  and  the  listing  for  COMBLK.FOR  at  the  end  of  this  report).  This  process 
frees  most  of  the  memory  used  by  SAPLOT  and  GETIT  for  the  analysis  routines.  The  only 
variables  passed  in  the  program  memory  are  the  values  for  the  smallest  data  point  in  the  file,  the 
difference  between  it  and  the  largest  point,  and  the  number  of  points  in  the  file.  Execution  of  an 
overlay  program  terminates  when  a  RETURN  statement  is  reached.  The  calling  program  is  then 
read  back  into  memory  and  resumes  execution  at  the  statement  after  the  OVLAY  call.  In 
SAPLOT,  NXTFIL  is  called,  and  the  name  of  the  next  file  to  be  analysed  is  requested. 

g.g  SAPLTg 

The  program  SAPLT2  has  been  developed  to  produce  plots  of  SA  data  on  the  computer 
screen  and  on  a  Hewlett-Packard  7475A  Graphics  Plotter.  It  should  also  work  with  other  plotters 
that  have  an  RS-232-C  port  and  run  the  Hewlett-Packard  Graphics  Language  (HPGL).  Screen 
plots  are  limited  by  the  system  to  512  points  of  data  with  a  vertical  resolution  of  1  part  in  245.  This 
leaves  room  on  the  screen  for  an  x-axis  and  headers.  A  cursor  is  placed  on  the  first  point  on  the 
screen  along  with  headers  that  give  the  cursor  position  in  terms  of  the  transient  recorder  channel 
number  and  the  relative  amplitude.  Cursor  movement  is  controlled  by  the  FORTRAN  subroutine 
CRSR  and  the  MACRO  subroutine  CURSOR.  The  statement 

KEY=INP(253) 

returns  a  value  of  15  when  there  is  no  input  from  the  system  keypad  or  when  the  RESET  key  is 
depressed  when  the  statement  above  is  reached  in  the  program.  Values  of  0  to  14  are  returned  for 
input  from  the  other  keys  (Figure  1).  Using  the  value  returned  in  KEY  in  a  FORTRAN  IF 
statement  allows  the  program  to  branch  without  stopping  to  print  an  input  request  and  wait  for  the 
input. 

*  Ken  Barbier,  CP/M  Assembly  Language  Programming ,  Prentice-Hall  Spectrum  Books,  1983. 

**  See  the  LeCroy  System  3500  Operator’s  Manual 
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Figure  1.  The  System  3500  Keypad  and  the  Value  Returned 
for  Each  Key  by  the  Statement  KEY=INP(253) 


The  FORTRAN  subroutine  PLTTR  is  used  to  produce  plots  of  from  2  to  8192  points  on 
the  graphics  plotter  with  a  vertical  resolution  of  1  part  in  10,000.  PLTTR  includes  routines  to 
determine  the  divisions  of  the  x-axis  from  the  number  of  points  being  plotted,  to  draw  the  x-axis, 
and  to  determine  the  vertical  scale  of  the  plot  from  the  values  of  the  points  in  the  file.  Plot  labels 
and  comments  are  produced  by  MACRO  subroutines  found  in  HP.MAC.  These  routines  read 
ASCII  strings  from  the  terminal  and  send  the  instructions  required  to  print  the  label  to  the  plotter. 

The  interface  between  the  graphics  plotter  and  the  LeCroy  3500  requires  a  cable  that 
connects  pins  1,  2,  3,  and  7  of  the  system  printer  port  to  pins  1,  3,  2,  and  7  of  the  plotter.  The 
plotter  switch  settings  should  be  set  for  no  parity  checking  and  a  baud  rate  of  4800  with  1  stop  bit. 
The  paper  sise  may  be  set  according  to  user  requirements. 

S.  RUNNING  THE  PROGRAM 

S.l  Data  Retrieval 

To  run  the  program  for  data  analysis,  the  user  first  types 

SAPLOT  d.filename.typ, 

where  d  is  the  disk  drive  in  which  the  file  will  be  found,  and  typ  is  the  file  type  (normally, 
typ=SAD).  If  no  file  name  is  entered  or  if  the  file  is  not  found  on  the  designated  disk,  an  error 
message  is  printed,  and  a  new  file  name  is  requested  by  the  program. 

When  SAPLOT  begins  to  execute,  the  user  is  first  asked  to  enter  the  number  of  points 
in  the  file;  typing  a  <RETURN>  enters  the  default  value  of  4096  (4k).  The  message 

TRANSLATION  OF  3500SA  DATA  FOR  PLOT 

is  printed  on  the  screen  to  indicate  that  control  has  been  transfered  to  GETIT.  The  data  header  is 
then  printed,  followed  by  the  message 
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FILE  IN  MEMORY,  PLEASE  WAIT 


to  show  that  the  file  has  been  read  into  memory  successfully  and  that  the  format  conversion  and 
data  storage  routines  are  running.  The  minimum  and  maximum  values  of  data  points  in  the  file  and 
the  difference  between  them  are  printed  when  the  conversion  is  completed.  SAPLOT  then 
completes  its  execution  by  calling  the  overlay  subprogram  SAPLT2,  which  is  then  read  from  the 
program  disk  into  memory. 

S.S  Plotting  Data 

A  request  for  the  sise  and  units  of  the  sample  interval  used  in  the  data  acquisition  is 
made  after  SAPLT2  has  begun  to  execute.  A  short  menu  is  printed  giving  the  user  the  choice  of 
plotting  on  the  screen  or  the  graphics  plotter,  exiting  the  program,  or  returning  to  SAPLOT  for  a 
new  file  (SAPLT2  returns  to  this  point  in  the  program  after  each  plot).  A  request  for  either  type  of 
plot  results  in  a  request  for  the  channel  number  of  the  first  point  to  be  plotted  and  a  request  for  the 
number  of  points  in  the  plot.  A  <RETURN>  at  the  first  request  gives  a  plot  of  the  entire  file. 

S.S.l  Screen  Plots 

A  plot  initialisation  call  clears  the  screen  for  the  screen  plot.  The  program  then  draws 
tick  marks  at  50-point  intervals  on  the  x-axis  and  labels  the  axis  end  points.  The  first  512  data 
points  of  the  plot  are  displayed,  a  vertical  cursor  is  drawn  on  the  first  point,  and  the  coordinates  of 
the  cursor  are  printed  on  the  top  of  the  screen  and  labeled. 
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Figure  2.  A  Sample  of  a  Screen  Dump 

As  noted  above,  the  keypad  is  used  to  control  cursor  movement  and  to  update  the 
cursor  coordinate  display.  The  up  arrow /right  arrow  (|  — ►)  and  RIGHT  CRSR  keys  move  the 
cursor  to  the  right  in  steps  of  1  and  5  points  each;  holding  the  key  down  results  in  continous  cursor 
motion.  The  left  arrow/down  arrow  («—  i)  and  LEFT  CRSR  keys  perform  the  same  functions  to 
the  left.  The  displays  for  the  channel  number  and  y-coordinate  of  the  cursor  are  updated  as  it 
moves  from  point  to  point. 
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The  other  keypad  keys  are  used  for  the  folowing  functions: 

2ND  FUNCT  calls  a  screen  dump  (Figure  2).  This  produces  a  copy  of  the  screen  display  on  the 
system  dot  matrix  printer. 

V.MAX/V.MIN  allows  the  user  to  expand  or  compress  the  vertical  scale  of  the  plot. 

CONT/CL  ROI  calculates  and  displays  the  elapsed  time  from  the  first  data  point  in  the  file  to  the 
cursor  position. 

START/CL  DAT  replots  the  data,  since  the  moving  cursor  can  remove  lines  that  connect  the  data 
points. 

STOP  serves  two  functions.  It  will  cause  an  exit  from  the  plotting  routine  if  it  is  pressed  while  the 
plot  is  being  produced,  and  it  causes  the  next  512-point  section  of  the  data  to  be  plotted  when  a 
<RETURN>  is  entered  after  the  plot  is  complete. 

The  rest  of  the  keys  are  ignored  by  SAPLT2,  but  can  be  programmed  for  other  functions. 

3.2.2  Using  the  Graphics  Plotter 

An  example  of  a  plot  produced  on  the  graphics  plotter  is  given  in  Figure  3.  The  x-axis, 
’.ts  units  label,  and  the  plot  are  all  produced  automatically  after  the  user  has  indicated  which  part  of 
the  file  is  to  be  plotted.  The  labels  for  the  end  points  of  the  x-axis  are  displayed  on  the  screen  and 
must  be  entered  on  the  keyboard  to  be  printed  on  the  plot.  This  allow*  a  user  to  modify  the  format 
of  the  plot  according  to  his  needs.  A  provision  is  made  so  that  multiline  comments  can  be  placed  at 
the  top  of  the  plot.  The  comments  may  be  entered  after  the  data  plot  is  complete. 


TIME  OF  FLIGHT 
MASS  SPECTRUM 


Figure  3.  A  Plot  of  a  Time-of-Flight  Mass  Spectrum  Produced  on  the  HP 
Graphics  Plotter 
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4-  PROGRAM  MODIFICATION 

SAPLOT,  SAPLT2,  and  the  subroutines  called  by  these  programs  can  be  modified  to 
suit  the  needs  of  the  user.  A  working  knowledge  of  FORTRAN  and  the  MACRO  assembler  is 
required.  It  should  be  noted  that  one  of  the  FORTRAN  library  calls,  HMFRD  or  HMIRD 
(Histogram  Memory  Floating  point  or  Integer  ReaD),  is  required  to  access  data  from  the  histogram 
memory  if  a  new  FORTRAN  subroutine  is  written. 

Once  the  modifications  have  been  made,  the  program  must  be  compiled,  linked,  and 
loaded.  This  can  be  done  for  SAPLOT  and  SAPLT2  by  running  the  batch  file  SAPLOT. SUB  (any 
new  or  modifi-d  MACRO  routines  should  first  be  assembled  by  typing  M80  =filename).  This  is 
done  by  typing  SUBMIT  SAPLOT.  SAPLOT. SUB  contains  all  of  the  commands  required  to 
compile,  link,  and  load  SAPLOT  and  SAPLT2.  A  listing  of  SAPLOT.SUB  is  included  with  the 
program  listing  at  the  end  of  this  report.  The  SUBMIT  SAPLOT  command  will  call  each  of  the 
command  lines  in  the  batch  file.  When  the  batch  file  is  complete,  the  program  is  ready  to  run.  For 
more  information  on  hov  to  modify,  compile,  link,  load,  and  run  programs  on  the  System  3500SA, 
see  the  LeCroy  System  3500  FORTRAN  Software  Documentation  Manuals. 
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c ; ccccccccccccccccccccccco:  c  cccccccccccccccccccccccccc 

C  THIS  PROGRAM  RETRIEVES  300SA  DATA  FROM  DISK 

0  AND  CONVERTS  IT  TO  FLOATING  POINT  FORMAT 

FOR  USE  IN  THE  PROGRAM  SAPLT2. FOR 
NOVEMBER  1987 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

PROGRAM  SAPLOT 
DIMENSION  POINT C 1 > 

COMMON /SHARED ' XM I N , DIFF, NPTS 
DO  100  1=1,100 
10  XMA»0. 

<MIN=1 . 0E12 
WRITE(1,2M 

2t:  FORMAT ! 'CENTER  THE  NUMBER  OF  POINTS  IN  the  FILE  ') 

READ (1, 30.)  NPTS 
[  F NPTS .  EC! .  0 )  MF  TS=409S 

30  FORMAT  U  4} 

CCCCCCC CCCCO 00 CCCCCCCCCCCCCCCC C CCCCCCCCCCCCCCCCC'' CO CO 0 ccccc 
0  RETRIEVE  DATA  FROM  DISK 

cccccccccccoccooccccccccccccccccccoooccccccccccccccccccocr.c 

CALL  GET IT* I OK) 

IcU9K.NE.l>  GOTO  70 


WRITE! 1,40) 

4i)  FORMAT!  OF  I LE  IN  MEMORY,  PLEASE  WAIT- 

CCCCCCCCCCCCCC CCCCCCC c ccccccccccc cccccccccccccccccccccccccc. : : 

C  CONVERT  DATA  TO  4  BYTE  FLOATING  POINT 

C  AND  STORE  IN  DATA  HISTOGRAM  MEMORY 

oo  •:  o  o  o  o  ccccccccccccccccc  c  cccccccccccc  ccccc  •:  cco  c «:  o  cccccccccc  ccc 

DO  50  J=3. NPTS 
CALL  TRMSB(IDATA) 

byt=floatiidata: 

CALL  TRNSB! I DATA > 

DY7  =  BYT-*-FL0AT< I  DATA) ♦25c. 

CALL  TRNSB! I DATA) 

POINT  1 > =BYT+FLOAT  ( I  DATA )  *6553  6 . 

I F !.  PC  I  NT  :  1  .  LT .  X  M I N )  X  M I  N=F  0 1  NT  i  1  .• 

I F  < PO I NT ( 1 ) . GT . XMAX .  XMAX  =*0 1 NT ! 1 > 

CALL  HMFWR !  c,0 1 N  T .  J ,  I ) 

50  CONTINUE 

D."C=XMA*-'<MIN 

WRITE!  1,60)  XMIN,  XMAX  ,01  — 

60  FORMAT  (  OMIN--',  FI  2.0,  '  MA<=',F12.0  '  DIFF='  ,  F3.  0) 

CCCCCCCCCCCCCCCCC CCCCCCCCCCCC:  CCCCCCCCCCCC CCCCCCCCCCCCCC CCCCCCC 
C  HE  OVERLAY  PROGRAM  IS  CALLED  TO  ='LOT  THE  DATA 

CCCCCCCCCCCCCCCCC CCCCCCCC C  CCC CCCCCCC DC CC CCCCC C C CCCCCCCCCCCCCC 0 
CALL  OVLAY (.  'SAPLOT  ■  f  SAPLT2,  ’  SAPLT2  '  > 

c 

i:  GE’  A  NEW  PILE  NAME 

C 


TO  CALL  NXTFIL 

100  CONTINUE 

END 
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ccccccccccccccccccccccccccccc c cc c cccccccccccccccccccccrccr 

C  THIS  PROGRAM  IS  AN  OVERLAY  SUBROUTINE  CALLED 

C  BY  SAPLOT.  IT  PLOTS  THE  3500  SA  DATA  TAKEN  FROM 

C  DISK  BY  GETIT. MAC. 


17  JULY  1997  UPDATE  PLOTS  ON  HP  PLOTTER 
CONVERTED  TO  PRESENT  FORM  NOVEMBER  1937 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCC cocccccccccccccccccccccccccccc 


SUBROUTINE  SAPLT2 


DIMENSION  BT(512).IPT(512) 


'CICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDCCCCCCCCCCCCCCCCCCCCC 
.C  THE  COMMON  STATEMENT  IS  REQUIRED  FOR  THE  OVERLAY 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

COMMON /SHARED' <MIN.BIFF,NPTS 


:■  :r::  ■'  :r 


DATA  KSTOP'O/ 

100  WRITE < 1,101) 

103  FORMAT C'OUN ITS  OF  SAMPLE  INTERVAL'"  , - , 

1  '  ENTER  1  FOR  MICRO  SECONDS'.'. 

2  ••  2  FOR  MILLISECONDS",', 

3  '  RETURN  FOR  NANOSECONDS  ) 

READ<  1,210)  l'JNIT 

WRITE! 1,110) 

110  FORMAT! '  OENTER  SAMPLE  INTERVA1.  -  FLOATING  POINT 
READ <1,1 20)  SAMPL 
120  FORMAT (c12.5) 

CC CCCCCCCCCCCCCCCCCCCCCC CC C  C CC CCCCCCCCCCCCCCCCCCCCC c c ccc 

C  DETERMINATION  OF  the  POINTS  TO  BE  ^LOTTED 

C  ALSO  DETERMINES  Ic  DATA  IS  DOTTED  CN  THE  SCREEN 


OR  A  HARD  COPv  ON  THE  HP  BLOTTER  USING  PLTTP 


0  MAXIMUM  P0INTS--8192 

CCCCCCCCCCCCCCCCCCCCCCCCOCCCCCCCCCCCCCCCCCCCCCCCC'OCCCCX.’CX 

write!  1.2011 

201  FORMAT ( " TENTER  1  TC  PLCT  ON  SCREEN 

1  '  2  tq  EXIT  PROGRAM,  3  FOR  A  MEW  rI_E',/. 

2  '  RET  r0R  HARD  COPY  "  > 

READ!  1.210)  Ir’LOT 

210  FORMAT < 1 2 ) 

IF’.  IPL0T.EQ.3)  RETURN 

IF  ( I  PLOT.  EO.  2)  STOc’ 

IF  I  PLOT.  ME.  1 ;  CALL  D,_TTR<  DOINT.  SAMPL,  [UNIT.  <M  IN .  E  IFF.  NP^ 
IF  i  I  PLOT.  NE.  1 )  GOTO  1  Y: 

CALL  WHTDTS< ISTART, ICIN.NPTS > 

CC  CCCCCCCCCCCCCCC  C  CC  C  C  C  'I  CCCCCCCCCCCCCCCCCCCCCC  cccc  cc  ccc  c  c  cc  C I 

C  INITIALIZATION  of  W_DT  VARIABLES 

cxccc  cccc c  c cccc ccccccccccccccccecececc  ccccccc cccccc i see  e  e  ccc e 
e  c  i :  e c ccccccccccccccccccccccccccccc c  ccc i c  c  cc cc i cc c i cc e e e  e  e  e  e 

C  START  OF  PLOT 


PLOT  DONE  IN  512  POINT  SECTI0rIS 


I NP ! 25 3 )  RETURNS  0  IF  THE  STOP  KEY  ON  the  KEY*mU 
IS  DEPRESSED  WHEN  THE  INSTRUCTION  IS  REACHED, 

1  r OR  CUNT ' CL  RIH 
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2  FOR  ACQ/OUTPUT 

3  FOR  2ND  FUNCT 
a  FOR  RI3HT  CRSR 

5  -OR  UP/RIGHT  ARROW 

6  FOR  LEFT 'DOWN  ARROW 

7  FOR  LEFT  CRSR 

8  FOR  DF  ROI/DL  ROI 

9  FOR  MRKR/SCAN 

10  FOR  DISP  MODE 

11  r0R  ROI /DDL  Di¬ 
li’  FOR  M.ORP/SG  DIS 

13  FOR  V. MAX /V. MIN 

14  C0R  3 TART /CL  OAT 

15  FOR  RESET  OR  WHEN  NO  KEY  IS  DEPRESSED 
THE  KEYPAD  ALLOWS  COMMANDS  TO  BE  INPUT 

WITHOUT  STOPPING  THE  PROGRAM  IF  NO  COMMAND  IS  REQUIRE 
ICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC-CCC  CCCCCCC  CCS . 
DO  300  I X=1 START, I FIN, 51 2 
KEY  - 1 NP (253) 

I F (  KEY.  EQ.  KSTOP.'  GOTO  310 

I C CCC CCCCCC CCCC C C C C OC C 0  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
RESET  CURSOR  TO  THE  START  Or  THE  SCREEN  AFTER 
A  SCREEN  PLOT 

icccccccccccccccccccecccccccccccccccccccccccccccccccccccccc 

TIMEl =pLOAT ( I  *  - 1 > 

IFIN2=IFIN-IX 

IF(IFIN2.GT.512J  IFIN2*511» 

iccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

GET  NEXT  512  POINTS  FROM  DATA  MEMORY 
INITIALIZE  GRAPHICS  AND 
DRAW  AND  LABEL  SCREEN  AVIS 

ICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CALL  HMFRDfPT.  Ix.  IFIND 
CALL  PL  I N I T 
DO  250  IJ=1  11 
IK=‘.  I-J-l  .’^50 
CALL  PLOT  UK.  C  .  I ) 

CALL  PLOT I K  5  2  i 
I  CONTINUE 

XXX=FLOAT 1 IX) 

I 7 7s kx# +499 . 

CALL  NUMBER 0,15, XXX, -1,5,0 1 
CALL  NUMBER ( 499 . 1 5 . Z  Z  Z . - 1  -  5 .  1 ■ 
ICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CALCULATE  VALUE  TO  BE  PLOTTED  ON  THE  SCREEN  FOP 
POINT  1 

SE"r  =  MIN  AND  MAX  VALUES  FOR  MIN-MAX  DETERMINATION 


ir-  i  =:f*ix ■  ■pt..i;.-xmin:’»245/d!ff: 
MIN- 1  FT  (.  1  > 


APPENDIX 


17 


u  w 


MAX*IPT«1> 

CALL  PLOT (0. IPT ( 1 ) ,3) 

CALL  PLOT (0, IPT (1), 2) 

DO  270  NM»2. IFIN2 

IPT(NM>IFIX<.<PTI.NM)-XMIN)«245/DIFF) 

CALL  PLOT(tNM-l). IPT(NM). 1) 

IF<IPT<NM).LT.MIN.>  MIN«IPT<NM.' 

IFdPT(NM).OT.MAX)  MAX-IPT(NM) 

70  CONTINUE 

CCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  CRSR  DRAW::  AND  MOVE  THE  CURSOR  AND  CALCULATES 

C  TIME 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CALL  CRSR ( I PT . T I ME 1 . SAMPL . I  * . X  X X , Z Z 2 . MIN. MAX  > 

READ Cl,  2 10)  ICON 
30C  CONTINUE 

•:  U)  CALL  PLTCLS 

WRITE! 1, 320; 

320  FORMAT'.-'<rvPE  1  ^0  QUIT,  RETURN  T0  RE-PLOT  DATA ■' / 

READ  Cl. 210)  I QUIT 
IFCIQUIT.NE. 1)  G0T0  200 
STOP 
END 


SUBROUTINE  WHTPTS<.IS’ART,  IFIN,  NPTS: 

WRITE! 1,1) 

1  FORMA T  C  OENTER  "HE  CHANNEL  NUMBER  OF  THE  1ST',/, 

1  '  POINT  TC  BE  PLOTTED.  OP'./. 

2  TYPE  "'ETURM  FOR  THE  ENTIRE  FILE  •  • 

READ  Cl. -I)  I  START 

IF ! I START. NE. 0)  GOTO  2 

I ST ART =2 

IFIN*NPTS 

RETURN 

2  WR I TE !  1 , 3 

:?  FORMAT C  CENTER  NUMBER  OF  POINTS  to  BE  PLOWED  .■ 

READ  Cl. 4 >  IF IK 
-  FORMAT! 14) 

:c : 0 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  1ST  2  POINTS  ARE  NOT  USED.  SINCE  THEY  ARE 

C  N0T  true  DA"A  POINTS 

CCCCCCCCCCCCCCCCCC CCCCCCCC CCCCC CCC C CCC CC C CCCCCC C C CC CC C C C  0 
IF: ISTART.LT. 3)  istart-s 


IFIN- IFIN-l+ISTAPT 


IF ( IFIN. OT. MPT?)  IrIN=NPr3-l *1  S’” ART 
RETURN 


END 
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SUBROUT I NE  CRSR il Pt , T I ME 1 , SaMPL ,IX,XXX,ZZZ,MIN.MAX) 
DIMENSION  IPTC512) 

DATA  KSTOP/O/ , K2ND/3/ , KRT5/4/ . KRT/5/ . KLEFT/6/ , KL5/7/ 
DATA  KRGO/8/ . KLGG/9/ . MSEC/ 1/. MULT/ 13/. KPLOT / 14/ 

C 

:  SET  UP  CHANNEL  NUMBER  FOR  PLOT  HEADER 

C 

:hani=timei+i 

SC  K=0 

CHAN2--CHAN1 

CALL  NUM(K.IPT.IV. CHANS) 

CC'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  RETURNS  TO  LINE  100  AFTER 

C  EACH  KEY  FUNCTION  IS  COMPLETED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCXCCCCCCCCCO 
100  KEY®  INF' (2530 


r 

r 


RIGHT  CURSOR 


if<key.ne.krt:  goto  200 

CALL  ERASE 
[F(K.EQ. 51 l )  K=-l 
K=K+ 1 

CHAN2=CHANt+K 

CALL  NUM ( K . IPT. IY.CHAN2) 

GOTO  100 

LEFT  CURSOR 


200 


1. 

1; 

C 

400 


IF'KEY.NE.KLEFT)  GOTO  300 
CALL  ERASE 
Ic(i:.EQ.O:  K=512 
K=|:-l 

i:han2=chani+k 

CALL  NUM ( K.I PT . I Y . CHAN2 , 

GOTO  »CC 

R I GH’"  CURSOR  X  5 

:c:key.ne.krt5>  goto  too 
Ch..L  ERASE 
IF  K.GT.506'  K=50S-K 
K=K>5 

CHAN2=C  HAN 1 AK 

CALL  NUM ( K. I *T, 1 V,  SHAN 21 

GOTO  l Of 


LEFT  CURSOR  X  5 
IF.KEY.NE.KL5>  GOTO  5CC 
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•  ►  non 


CALL  ERASE 
IFCK.LT.5)  K*K+511 
K  =K-5 

CHAN2*CHAN1+I«' 

CALL  NUM1K, IPT, IY.CHAN2) 

GOTO  100 

r 

m* 

:  CALCULATE  TIME  FROM  START  TO  PRESENT  CURSOR  POSITION 

C 

500  IF (KEY. NE. MSEC)  GOTO  600 

T I  ME  X  *  ( T I  ME  1 +K )  AMF'L 
CALL  WRTSYM (255 . 255 . 'TIME  7 ,  0) 

CALL  NUMBER  1 325 . 255 . T I HEX . 5 . 1 5 . C  ) 

GOTO  tOO 

REPLOT  DATA 

00  IF (KEY, NE. KPLCT )  GOTO  700 

CALL  PLOT (0. IPT (1 ) , 35 
CALL  PLOT  >0.  IPT'.l)  ,2> 

DO  <s  1C  1=1.511 

call  plot i. i,  :pt  ;  i*i  ■  n 
610  CONTINUE 


C  DATA  IS  REPLOTTED  ON  A  DIFFERENT  SCALE 

C  RESOLUTION  IS  <=  1  PART  IN  245 

0 

70n  I F: KEY. NE. MULTI  GOTO  300 

CHANG=FL0AT (MAX -MIN) 

botm=float:.min> 

CALL  PLINIT 
CALL  RLTCLS 
WRITE:.  1.704)  CHANG 

7C4  FORMAT ( '  OLARGES“r  PEAK  IS'.FS.C  '  POINTS  DEE*'./, 
1  ') 

LlFITEU.  705) 

■'05  FORMAT ( 'CENTER  SCALE  ~ACTOR  FROM  1<)  045  ' 

1  '  PETURN=245=FiJLL  SCALE  \< 

READ (1.706)  ISCAL 
70/;  FORMAT  (14) 

SC ALE “FLOAT « ISCAL) 

IF (SCALE. LT. 1 . >  SCALE=245. 

CALL  PLINIT 
DO  707  MARK =1. 550. 5C 
MARK  l  “MARK -50 
CALL  PLOT  (MARK  1,0,  3.' 

CALL  PLOT  MARK 1.5  2» 

707  CONTINUE 

CALL  NUMBER (0. 15, XXX, -1, 5, O' 
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CALL  NUMBER(50Q, 15, ZZZ.-l .5. t ) 

PT=FLOAT ( IPT< 1 • : 

IY=IFIX( UPT-BOTM>*SCALE/CHANG) +245. -SCALE) 

IPT ( 1 )-IY 

CALL  PLO T-:0,IY,3> 

CALL  PLOT (0, IV- 2 > 

DO  710  1=1.1:11 
PT=FLOAT(IPT ( 1+1 ) ) 

IY=IFi:< ( ( (PT-BOTM)  *SCALE/CHANG*+245. -SCALE) 
IPT ( 1  + 1 )  =  1 V 
CALL  PLCT(I.IY.l) 

710  CONTINUE 

GOTO  80 

800  IF (KEY . EO. KSTOP)  RETURN 

C 

C  HARD  COPV  OF  SCREEN  PLOT 

C 

IC(KEY. EQ. K2ND '  CALL  SCRDMF 

GOTO  100 

END 


HErtBER  OF  THE  SCREEN  PLOT  IS  SET  UP 

SUBROUTINE  NUM<K, IPT,  !V,CHAN2> 
DIMENSION  IPT (512 > 

IY*255-IPT(K+1: 

CALL  DRAW ( K , I i ) 

Z=crLOAT'.IY:» 

CALL  WRTSYM(C.25= .  CHANNEL' ,7,0: 
CALL  NUMBER • 72 , 255 . CHAN2 .5,15.0 
CALL  WRTSYM ( 255 . 255, ' V  COORD', 7  C  ■ 

C ALL  NUMBER (325,255,2,5. 15. 0> 

RETURN 

END 
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o  o  n 


ROUTINE  PLOTS  DATA  ON  AN  HP  PLOTTER  FROM  PORT  2 
I.E.,  THE  PRINTER  PORT 

THE  RESOLUTION  IS  AS  GOOD  AS  THE  DATA  OR  1  PART  IN 
10,000,  WHICH  EVER  IS  LESS 
i: 

SUBROUTINE  PLTTR ( POINT . SAMPL ,  I'JNIT,  XMIN,DIFF.NPTS) 
DIMENSION  POINT! 1) 

CALL  WHTPTSdSTART,  IFIN.NPTS) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC:::::::: 

C  SET  UP  X  rtXIS  AND  THE  #  OF  TICK  MARKS 

C  AND  SET  HP  PLOTTER  SCALE 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOCOCCCCCCCCCCCC 
I D*  I F  IN- 1  START 
IF! ID. GT. 1999)  DIV-500. 

IF(ID.  LT.2000.'  DIV=IOC. 

IFCID.LT. 1000)  DIV=50. 

IFCID.L7.20C>  DIV=JO. 

MULT-IFIXCDIV) 

I SCLO* I - 1 X ( FLOAT  C I START  > / D I V > 

I SCLO= I SCLO«MULT-MULT 
ISCHI  =  IFIX 'FLOAT ( IFIN+1 ) /DJV. 

I SCH I = (I SCH I + 1 • «MULT+MULT 
WRITE  (2,  200.'  I  SCLO.  I  SC  HI 

format  c  '  sc  ml  - ,  M4,  •*, -2000. 12000? sri  .5, 3?  :• 

I SCLO* I SCLO+MULT 
I SCH I - 1 S CH I -MULT 
SECLC=SAMPI.*FLOAT ( ISCLO ) 

sei:hi=sampl*float!  ischi  ;• 

ITIC= ( ISCHI -I SCLO) /MULT 
WRITE! 2, 210)  ISCLO 

21 0  FORMAT!  -  SP1 ; PA' , 14,  ' . -1000: PD* XT :  ' 1 
DO  220  1=1 . ITIC 
WRITE (2. 230)  MULT 
220  CONTINUE 

230  FORMAT  ('  PP  M  3, ' ,  0;  X"-  '  • 
r  _abel  ::  AXIS 

WRITE! 1. 240 )  SECLO 

240  FORMAT ( '01 ST  SCALE  LABEL* '.FI  CM. • . 
t  '  ENTER  VALUE  WHEN  REQUESTED) 

WRITE! 2. 250  ISCLO 

250  FORMAT!'-  PU? PAM  14.  ',-1000; CP-. 5,-1;  '  • 

CALL  COMNT 
WRITE (1,260)  SEC HI 

26C  FORMA T <  02ND  SCALE  LABEL  =  '  ,  rK».  3,  / 

l  '  ENTER  VALUE  WHEN  REQUESTED') 

WRITE (2- 270)  ISCHI 

270  FORMAT! •  PA' ,  14,  , -iOCQ :i'F- 1 . 2, -1 ; ' ) 
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CALL  comnt 


•4 l : 
342; 
343; 
344: 
345: 
34 6: 
347: 
343: 
344-. 
350: 
351: 
352: 
353: 
354: 
355: 
356: 
357: 
:?58: 

;)eo. 

:3oO: 

361: 


•  :  <z 


3  66 


36 4 
370 
•71 


C 

0 

f: 

350 

40C 

410 

w 

C 

c 

450 

460 

165 

470 

o. 

c 


PLOT  DATA  ON  HP 

00  400  I=ISTAFT. IF IN 
CALL  HMFRD (POINT (13,1, 1) 

Y-10000. «(1.- (POINT  ( 1 )-XMIN)  /DIFF) 

WRITE(2, 350 >  I.Y 

FORMAT C  ‘  PA".  14,  \F12.4.  ':PD;"> 

CONTINUE 

WRITE (2, 410)  I COLO 

FORMAT < '  PU; PA  14.  \  12000; CP-l , -1: PRO. C : ' 

ENTER  COMMENT  FOF:  TOP  OF  PLOT 

CALL  COMNT 
WRITE (1.460) 

FORMAT COTYPE  1  FOR  ANOTHER  LABEL  LINE  ) 
READ (1,4 65(  NOTHR 
FORMAT (12) 

IF (NOTHR. EQ. 1 )  WRITE (2. 470 ) 

FORMAT ( '  CP; PRO, 0?'> 

IF (NOTHR. EQ. 1)  GOTO  450 

PLOT  «  AXIS  UNITS  LABEL 

IF ( IUNIT.EQ.O)  CALL  TIMUO 
I F ( I UN I T . EQ . 1 )  CALL  TJM.U 
IFvIUNIT.EO. 2)  CALL  TIMU2 
RETURN 
END 
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{GET IT. MAC  -  3ASED  ON  COPY, MAC  FOUND  IN  THE  EOOfc 
5 CP/M  ASSEMBLY  LANGUAGE  PROGRAMMING 
{S*  KEN  EAREIER 

: PUBLISHED  BY  PRENTICE- HALL  SPECTRUM  BOOKS  1933 
? MODIFIED  BY  ALAN  FORCE  APRIL-JULY  1987 

{SUBROUTINE  GET IT  REQUIRFD  FOR  REFORM. FOR  23  APRIL  1987 


; DISKEQ.LIB 

21  APRIL  1937 

{MULTI 

-WRITE 

FILE  COPY 

PROGRAM 

: ASCII 

CHARACTERS 

CP 

EQU 

ODH 

^CARRIAGF  RETURN 

LF 

EQU 

OAH 

{LINE  FEED 

CT9LZ 

EQU 

LAH 

i OPERATOR  INTERRUPT 

SPAC 

EQU 

20H 

{ASCII  SPACE 

?  CP/M 

BDOS  FUNCTIONS 

RCCNF 

EQU 

1 

;READ  CON:  INTO  A  REG I STEF 

WCONF 

EQU 

2 

: WRITE  A  REGISTER  TO  CON: 

RB'JFF 

EQU 

10 

:READ  A  CONSOLE  LINE 

; CP/M  DISK  ACCESS  FUNCTIONS 


INITr 

EQU 

13 

: INITIALIZE  BDOS  FUNCTION 

OPEMF 

EQU 

15 

: OPEN  CILE  FUNCTION 

CLOSF 

EQU 

16 

{CLOSE  FILE  FUNCTION 

TINDF 

EQIJ 

17 

.•FIND  CILE  FUNCTION 

DELEF 

EQU 

19 

{DELETE  A  FILE  -UNCTION 

RFADF 

EQU 

20 

: REAO  ONE  RECORD  FUNCTION 

WRITF 

EQU 

21 

s WRITE  ONE  RECORD  FUNCTION 

MAKEF 

EQU 

22 

{CREATE  FILE  FUNCTION 

SDMAF 

EQU 

26 

{SET  DMA  FUNCTION 

{CP/M 

ADDRESSES 

RE  COT 

EQU 

0 

; RE-BOOT  CP/M  SYSTEM 

DRIVE 

EQU 

A 

r CURRENT  DRIVE  SELECTION 

BOOS 

EQU 

5 

: SYSTEM  CALL  ENTFY 

MEMAX 

EQU 

n 

{ MSB  OF  T0F  OF  MEMORY 

TFCB 

EQU 

5CH 

{TRANSIENT  FILE  CONTROL  BLOCK 

FCBTY 

EQU 

:FILE  TYPE  IN  FCE 

FC  SEX 

EQU 

TFCB+12 

{FILE  E<TENT  IN  FCB 

FCBS2 

EQU 

TFCB+14 

: SYSTEM  USE  IN  FC? 

f:  src 

EQU 

TFCB+15 

{RECORD  COUNT  IN  FCE: 

FCECF 

EQU 

TFCB+32 

{'CURRENT  RECORD  IN  PCB 

TS'JFF 

EQU 

30H 

-•TRANSIENT  BUBBEF 

TPA 

EQU 

100H 

{TRANSIENT  PROGRAM  AREA 

:  t'F/M 

FLAGS 

:  OAOK 

EQU 

0 

: BDOS  RETURN  FOR  ALL  DK 

EDER1 

EQIJ 

1 

: BDOS  RETURN  I  EOF 

B0ER2 

EQU 

2 

: BDOS  RETURN  2 

BDERR 

EQU 

255 

:  EDO'S  RETURN  ERROR  FLAG 

APPENDIX 
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;MOD  OF  COPY. LIB  ADDED  TO  GET  23  APRIL  1987 


GET  IT::  push 

H 

;  SAVE  ADDRESS  FOR  ='ASSED  PARAMETER 

LDA 

DRIVE 

: SAVE  INITIAL  DRIVE  SELECTED 

STA 

DRSAV 

STARTt:  CALL 

CCRLF 

; START  A  NEW  LINE 

LX  I 

H. SI NON 

; WITH  A  SIGN  ON  MESSAGE 

CALL 

COMSO 

CALL 

TWC'CR 

CALL 

GET 

;GET  THE  NAMED  FILE 

START2:  CALL 

CCRLF 

: BEGIN  WRITE  PORTION 

DONE:  LDA 

DRSAV 

: RESTORE  INITIAL  DRIVE 

STA 

DRIVE 

D0NE2: :  LX  I 

H, BUFFER 

: BUFFER  ADDRESS  TO  HL 

LX  I 

D. 1926 

;NEED  1926  BYTES  ADDED  TO  B'.FPER 

DAD 

D 

s ADDRESS  TO  SKIP  HEADER  AND  1ST  2 

SHLD 

ADSAV 

r SAVE  ADDRESS  OF  FIRST  DATA  POINT 

POP 

H 

: GET  ADDRESS  FOR  °ASSED  PARAMETER 

LDA 

AOK 

MOV 

PEI 

M,  A 

; GET. LIE 

21  APRIL 

1 987 

•  READ  A  PILE 

FROM  DISK  INTO  "BUFFER" 

GET;  LX  I 

H ..  SUFFER 

;  GET  EL'FFE-  STAR’ 

SHLD 

NEX' 

:  ADDRESS  FOR  DMA 

LX  I 

D . TFC3 

; SEE  IF  THE  CILE  IS  ON  DISK 

MV  I 

C. OPENF 

:  AND  OPEN  FOR  READ 

CALL 

BDOS 

CPI 

BDERR 

: IS  IT  THERE' 

•JNZ 

OETl 

: IF  YES,  REAL  IT  IN 

MV  I 

A,  0 

STA 

AOK 

CALL 

rWOCF 

;  l-  NO'.  SHOP'  ERROR 

''ALL 

SF'MSG 

JB 

"  CAN  NO 

'  FIND  ",  • 

CALL 

SHOFN 

:SHOW  FILE  NAME 

ERREX:  CALL 
RET 

TWOCR 

: ERROR  EXIT  TO  CP/M 

GET1 :  MV I 

A.  1 

STA 

AOK 

XRA 

A 

.■ZERO  RECORD  COUNTER 

STA 

RECCT 

:  AND  READ  A  PILE  INTO  EUFFE* 

GET2:  LHLD 

XCHG 

NEXT 

:  SEI  Ei'JPPER  ADDRESS 

MV  I 

C.SDMAF 

CALL 

BDOS 

APPENDIX 
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* 


Lx  I 

D.TFCE 

{READ  ONE  RECORO  INTO  BUFFER 

MV  I 

C.READF 

GALL 

BDOS 

CPI 

BDAOK 

: READ  OK? 

JZ 

0ET3 

?YES,  DO  MORE 

CPI 

BDER1 

{MAYBE.  END  OF  FILE? 

JZ 

GETEX  l 

: YES,  NO  PROBLEM 

CALL 

REMSG 

l NO,  SHOW  ERROR 

JMP 

ERREX 

{AND  AL.L  DONE 

GET3: 

LDA 

RECCT 

{COUNT  THE  RECORD 

I  NR 

* 

ft 

STA 

RECCT 

LHLD 

NEXT 

•  INCREMENT  BUFFER  ADDRESS  Bv 

LX  I 

D.  128 

?  RECORD  SIZE 

DAD 

0 

SHLD 

NEXT 

LDA 

MEMAX 

; ROOM  LEFT  IN  RAM? 

DCR 

A 

: STOP  BELOW  CCP 

CMP 

H 

{COMPARE  MSB 

JNZ 

GET2 

{CONTINUE  IF  NOT  EOUmL 

CALL 

TWOCR 

•  ELSE  SHOW  CUT  OF  ME NOR v 

CALL 

SPMSG 

OB 

"  OUT  OP 

MEMORY  ",0 

JMF 

ERREX 

: AND  GIVE  UF 

t-ETFXl: 

LX  I 

H, BUFFER 

{WRITE  OUT  HEADER  -  SEE  COMSG: 

MSGJMP: 

MOV 

A.  Y 

CPI 

CTRL! 

JZ 

GETEX 

CALL 

CC 

IN  < 

H 

■JMP 

MSGJMP 

GETE  < : 

CALL 

CCRLF 

s NORMAL  EDT~ 

CALL 

CPDMA 

: RESTORE  CP/M  DMA 

PET 

; SHOFN . L I 3 

22  APRIL 

1 98? 

f DISPLAY  FILENAME. TYP  FROM  TRANSIENT  -VB 

SHOFN: 

PUSH 

B 

:BAVE  TEMF  STORE  AND  I NEE  < 

PUSH 

H 

LDA 

CCBTV 

: SAVE  firs-  CHAR  OF  TYPE 

MOV 

C,  A 

:  INTO  TEMPORARY  STORE 

XRA 

A 

■•FORCE  2  TERMINATORS  FOR 

STA 

FCBTY 

:  FILE  NAME  AM 

STA 

FCBEX 

{  FILE  TYPE 

LX! 

H, TFCB 

: SHOW  DISK  DRIVE 

MOV 

A.M 

AN  I 

OFH 

{LIMIT  TC  -1-  ?rs 

APPENDIX 
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> 

OR  I 

40H  ? CONVERT  TO  ASCII 

CALL 

CO 

MV  I 

A,-'s  '  jSHOW  "rHE  COLON 

CALL 

CC 

I  NX 

H  : AND  SHOW  THE  FILE  TVPE 

CALL 

COMSG 

* 

MOV 

A,C 

LX  I 

H.FCBTY  j  RESTORE  TYPE 

MOV 

M.  A 

A 

MV  I 

A,''.  ’  ; SHOW  SEPARATOR 

CALL 

CO 

CALL 

COMSG  ; SHOW  TYPE 

POP 

H 

POP 

B  ; RESTORE  AND  RETURN 

RET 

:  DISKSU. LIE 

22  APRIL  19S7 

; DISPLAY  READ  ERROR  MESSAGE 

REMSC:  CALL 

TWOCR 

CALL 

SPMS6 

DE 

PERMANENT  READ  ERROR  " ,CR,LF-C 

RET 

; DISPLAY  WRITE 

ERROR  MESSAGE 

VJEMSG:  CALL 

TWCCP 

CALL 

3PMSC 

OB 

PERMANENT  WFITE  ERROR'  CF.LF,0 

RET 

?  DISPLAY  WRITE 

OPEN  ERROR  MESSAGE 

WROPN:  CALL 

TWOCR 

CALL 

SFMSG 

DE 

CAN  NOT  OPEN  FOF  WRITE'' ,  CR-LF  .  !- 

RET 

•RESTCr  ;  :p/m  DMA  ADDRESS  T0  THE  TRANSIENT  E'UFCER 

CPDMa  LX  I 

D  TBUFF 

MV  I 

C,SDMAF 

CALL 

BDOS 

f  PT 

jWRTCHF.LIB 

22  APRIL  19E“ 

: THE  CHARACTER 

IN  REGISTER  A  IS  OUTL'T  TO  THE  CONSOLE 

CO-  PUSH 

E 

-U3H 

PUSH 

H 

MV  I 

C.WCONF  ; THE  WRITE  FUMCTICN  IS  SELECTED 

MOV 

E,  A  ; CHARACTER  TO  E 

CALL 

E-DCS  {OUTPUT  Dr  IP/M 

POP 

H 

POP 

n 

POP 

n 

UJ 

or 

APPENDIX 
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; GROUT. LIE  22  APRIL  1987 

: A  CARRIAGE  RETURN  AND  LINE  FEED  ARE  SENT  TO  THE  CONSOLE 


TMOCF:  CALL 

CCRLF 

i GIVES  TWO  LINES 

CCRLF :  MV I 

A,  CR 

sTO  BE  PRINTED 

CALL 

CO 

MV  I 

A-LF 

UMP 

CO 

; LEAVE  OUT  IF  DIRECTLY  ABOVE  CO 

; STRNGO.LIB 

22  APRIL  1937 

iA  MESSAGE  PPOINTED  TO 

BY  HL  IS  SENT  TO  THE  CONSOLE 

COMSOt  MOV 

A,  M 

jGET  CHARACTER  FROM  MEMORY 

ORA 

A 

•.CHECKS  FOR  C  TERMINATOR 

RZ 

;  RETURNS  IF  CHARACTER  13  0 

CALL 

CC 

;ELSE  OUTPUT  THE  CHARACTER 

INX 

H 

; POINT  TO  I HE  NEXT  CHARACTER 

UMP 

COPSSG 

; AND  CONTINUE 

jSTAK’MSG.  LIE 

22  APRi: 

L  3  987 

; S°  POINTS  TO  THE  NEXT 

INSTRUCTION  OF  THE  MAIN  PROGRAM 

: WHEN  A  CALL  IS 

MADE. 

IF  THIS  IS  A  DB  “SEUDO-OF  WHICH  CONTAIN 

? ’’HE  LINE  TO  BE 

FRINTEO 

IT  CAN  BE  USED  AS  THE  ADDRESS 

SPMSG:  XTHL 

? EXCHANGE  HL  AND  TUB 

XRA 

A 

(CLEAR  FLAGS  AND  ACCUMULATOR 

ADD 

M 

: GET  ONE  CHARACTER  -  0  FLAG  SE"  IF  v 

INX 

H 

.•POINT  *0  THE  NEXT  CHARACTER 

XTHL 

: RESTORE  STACK  FOR 

RZ 

; RETURN  IF  DONE 

CALL 

CC 

:ELSE  DISPLAY  THE  CHARACTER 

JMP 

SPMSG 

(AMD  CHECK  THE  N£XT  ONE 

jTRANSE  IS  USED 

TO  PLACE  A  DATA  =•  H I IN  THE  MEMORY 

; LOCATION  DESIGNATED  BY 

REFORM  FOR  THE  DATA  POINT 

TRNSB: :  XCHG 

; STORE  DATA  RETURN  ADDRESS  IN  DE  PAIR 

LHLD 

ADSAV 

! LOAD  ADDRESS  OF  NEXT  DATA  POINT  IN  ML 

MOV 

A.  I*1 

! MOVE  POINT  FROM  MEMORY  tq  A 

INX 

H 

•  INCREMENT  DATA  INDEX 

SHLD 

ADSAV 

r STORE  MEMORY  INDEX  FOR  N EX’  POINT 

XCHG 

! MOVE  DATA  RETIJRN  ADDRESS  BACK  TO  HL 

MOV 

M.  A 

;MOVE  PC I NT  TO  MEMOFr  TO  BE  FASSED 

RET 

: NXTFIL 

READS  A 

FILENAME  AMD  “LACES  IT  IN  "HE  FCS 

NX'TFIL: :  CALL 

SPMSG 

;GET  THE  FILENAME 

DE 

CR-LF. ' 

ENTER  FILENAME' , CR-LF. C 

LX  I 

H, FCBSTR+J  : POINT  A’  CHAR  'COUN" 

MV  I 

M.O 

: ZERO  CHAR  COUNT 

DO 

H 

-•POINT  AT  LINE  LENOTH 

MV  I 

M,  14 

!  5:  SET  TO  14 

XCHG 

} ADDRESS  TC  DE  -OR  ODCS 

MV  I 

C.REUFF 

;  READ  BUFFER  C,JNC:"TCN 

APPENDIX 
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CALL 

8  DOS 

:READ  FILENAME 

L  x: 

H,FCBSTR+1  ? POINT  AT  CHAP  CG'JN” 

MOV 

E,M 

:  1,  PLACE  IN  LSB  OF  DE 

MV  I 

D,  0 

;  ZERO  MSB  OF  DE 

DAD 

D 

;ADD  TO  FCBSTR  ADDRESS 

I  NX 

F 

; POINT  AT  END  Or  STRING 

MVl 

M,  '!  ' 

; INSERT  TERMINATOR 

; CHECK 

FOR  DRIVE  DESIGNATOR 

LXI 

H . FCBSTR+3  ; CHECK  2ND  CHAR  OF  FILENAME 

MOV 

A.M 

OCX 

H 

: POINT  rt-  [ST  CHAR 

CP) 

■*  •  * 

• 

:2N0  CHAR  A  s  ? 

JNZ 

MODSK 

:NO 

MOV 

A,M 

: GET  DRIVE 

CPI 

'A' 

: DRIVE  A'7 

JNZ 

EDSK 

•  NC.  B 

MV  I 

A,  1 

: CODE  FOR  A 

JMP 

DSK2 

BOSK:  MV I 

A.  2 

CODE  FOR  E 

DSK2 :  IN)! 

H 

[MX 

H 

f POINT  AT  1ST  CHAR  OF  FILENAME 

JMC’ 

NODSK2 

NODSK:  MV I 

A,  0 

: DEFAULT  DISK 

N0DSK2:  LXI 

D.TFCB 

<  CHG 

: POINT  rt”  TFCB 

MOV 

M,  A 

; DESIGNATE  DRIVE 

I  NX 

H 

; POINT  AT  C1  OF  TFCs 

XCHG 

r  BACK  TO  FILENAME  IN  FCBSTF 

:="JT  F 

ILENAME 

IN  FOE 

mv: 

C,  S 

•  SET  COUNTER  -  S  CHAR  IN  FILENAME  R 

DSKS:  MOV 

A,  M 

: OET  NEXT  CHAR 

I  N'< 

H 

■  POINT  AT  NEXT  CHAR 

CPI 

„  *’ 

; UP  TO  FILE  "UFES 

IZ 

PAD  IT 

: YES,  FILL  IN  SPACES 

CPI 

'  !  •' 

: END  OF  FILENAME7 

.J  l 

PAD  IT 

;  YES .  FILL  IN  SPACES 

<  CHG 

: NEITHER,  FO I NT  AT  BYTE  IN  FCB 

MOV 

M  A 

;  CHAR  INTO  FCB  Fl-FS 

I  NX 

H 

j7OINT  AT  NEXT  BYTE  OF  =^CB 

XCHG 

:C,:UNT 

BACT  TO  FILENAME 

OCR 

c 

: DECRIMINT  0 GUNTER 

JNZ 

DSI'S 

r  GET  ANOTHER  CHAC 

MOV 

A.M 

:  NEXT  char  A  ■ .  •' '7 

Lr  - 

JNZ 

'  %  9 

PAD2 

;  NO .  CILL  Trc'E  WI’H  SPACES 

C"|TTVp;  i(\|) 

h 

.•POINT  AT  1ST  CHAR  OF  TYCE 

LXI 

D.FCBTV  jFOINT  DE  ht  Tf°E  IN  FOE 
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PUT2: 

NOV 

A,M  :'3ET  CHAR 

CPI 

i END  OF  FILENAME? 

JZ 

ZEROS  j YES.  TYPE  COMPLETE 

INX 

H  >N EXT  CHAP 

XCHO 

: POINT  AT  FCB 

MOV 

M, A  :CHAR  INTO  T1-T3  OF  FCB 

INX 

H  jNEXT  BYTE  OF  FCB 

<CHO 

JMP 

PUT2 

;  PUT  S 

PACES  INTO  BLANKS  OF  FI -*8 

PADIT: 

*CHG 

: POINT  AT  NEXT  BYTE  OF  FCB 

BLNKS: 

MV  I 

M, SPAC 

INX 

H  ; NEXT  BYTE 

DCR 

C  :  CO1.  INTER  -1 

JNZ 

8LNKS 

XCHG 

t POINT  AT  TYPE 

BOX 

H  •  \  '  PRESENT? 

MOV 

A,M 

CPI 

• 

JZ 

PUTTYF 

; NO  TYPE  GIVEN  -  PAD  WITH  SPACES 

PAD2 : 

LX  I 

H, FCB TV 

MV  I 

C,  3  ;SET  UP  COUNTER 

PADS: 

MV  I 

M, SPAC 

INX 

H 

DCR 

rm‘ 

JNZ 

°AD3 

:  ZERO 

FCB 12- 15  l  32 

ZEROS : 

LXI 

H.FCBEX  ; POINT  AT  FCB 12 

MV  I 

C.4 

ZEF01: 

MV  I 

M.O 

DCR 

c 

JNZ 

ZERO! 

LXI 

H.FCBCP  :  POINT  AT  P*:B32 

MV  I 

M.C 

RET 

FAM.L 

IB 

22  APRIL  1987 

! PAM  VARIABLE: 

AND  BUFFERS 

ENBUF: 

PS 

S3  ?LINE  INPUT  BUFFER 

DRSAV : 

DS 

1  ; CURRENT  DRIVE  AT  ENTRY 

REOOT : 

DS 

1  ;  T0TAL  FE SOROS  READ /VIRILE 

CTSAV: 

DS 

1  ;  SAVE  LOCATOR'  F0D  SOUK" 

NEXT: 

OS 

?  : NEXT  DMA  ADDRESS 

SPSAV: 

DS 

2  : SAVE  RETURN  ADDRESS  FROM  S 

A3SAV: 

rs 

2  . SAVE  ADDRESS  }F  NEXr  BATA 

FCBSTF 

:  DS 

J  7  ; STORE  FOF  FILENAME 

«0K: 

DS 

1  ; S"OFE  FOR  FILE  FOUND  FLAG 

SI NON: 

DB 

'TRANSLATION  OF  3500SA  DA  "A  F0=’  C'L0 

-■FROM  HERE  TO  OCR  IS-  SUFFER  SFACE 

BUrcER:  DS  26-1  vS  USE  THIS  BUFFER  rOR  3K  PROGRAM 
END 


APPENDIX 


30 


i CURSOR . MAC  20  MAY  1987 

} UPDATED  9  JULY  1987  TO  INCLUDE  HP  PLOTTER  ROUTINE-: 
s DISPLAY  PROCESSOR  ACTRESSES 


BASE 

EQU 

OF OH 

STANDARD  BASE  ADDRESS 

ASK 

EQU 

BASE+5 

ACKNOWLEDGE  INPUT  PORT 

LO 

EQU 

BASE+d 

LOW  EYTE  OUTPUT  PORT 

HI 

EQU 

BASE+7 

HI  BYTE  OUTPUT  PORT 

ICTL 

EQU 

OFEH 

INTERRUPT  CONTROLLER  c'0R’r 

s PROGRAM  CONSTANTS 

LENGTH 

EQU 

2C 

nCODE 

EQU 

11011010! 

?  : CODE  TO  DRAW  VERT 

ECODE 

EQU 

no  ioc  i  :>i 

■:  ;  CODE  TO  ERASE  VERT 

FCODE 

EQU 

UUCIOOOB  ;  CODE  TO  PLOT  POINT 

ERASE i : 


DRAW! 


.■ERASE  ROUTINE  -  ERASES  OLD  CURSOR  AND  REPLACES  POINT 


;  ON  S 

pectrum 

MV  I 

A, ECODE 

: OET  ERASE  CODE  AND  STORE  FOP  1 

STA 

HI CO Cl 

CALL 

BODOUT 

MV  I 

A. FCODE 

;GET  CODE  T0  PLOT  t  STORE 

STA 

HI COD! 

XRA 

A 

; ZERO  A  FOR  210  OPCODE 

STA 

HIC0D2 

LDA 

Y COORD 

: GET  v  COORDINATE 

ADI 

10 

;  &  AD  JUS’’  OFFSET 

STA 

YCOORD 

JMP 

CCDOUT 

;  DRAW 

ROUTINE  - 

draw:-;  new  cursor  after  storing 

;  X  ANE 

Y  COORDINATES  SENT  cROM  FORTRAN  PROGRAM 

MV  I 

A  DCCDE 

; GET  dp aw  CODE  FOR  CURSOR 

STA 

HIC0D1 

MOV 

A,  M 

;0ET  X  FROM  MEMCF i 

STA 

< COORD 

I  NY 

H 

s POIN”  AT  >S 

MOV 

A.M 

: GET  *3 

AKI 

1 

.•ZERO  aLL  BUT  lsb 

S^A 

XHICIT 

DCX 

H 

<  CHG 

jpoirr  at  y 

MOV 

A.M 

:GET  Y 

SUI 

10 

:  ADJUS'r  OFFSET  OF  CUPS DR 

STA 

Ycoopn 

>  CHG 

mv: 

A,  LENGTH  :  0ET  CUPSOR  LENGTH 

:.t« 

HI COD 2 
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jCOQOLT  -  PUTS 

VARIABLES  IN  E-C  REGISTER  FOR 

CODOUT; 

LDA 

XHIBIT 

sOET  X€ 

MOV 

B.A 

LDA 

HICOD1 

rGET  OPCODE 

ADD 

B 

SAND  PUT  X3  IN  FOR  OUTPUT 

MOV 

B,  A 

;MOVE  TO  3  FOR  OUTPUT 

LDA 

X COORD 

sGET  X 

MOV 

C.A 

jMOVE  TO  C  FOR  OUTPUT 

CALL 

SEND 

LDA 

HICCD2 

MOV 

B.A 

LDA 

YCOORD 

MOV 

1  *  A 

;  SEND 

ROUTINE  OUTPUTS  TO  DISPLAY  PROCESSOR 

SEND! 

MV  I 

A.  10 

? PREPARE  FOP  INTERRUPT 

OUT 

ICTL 

S  CONTROLLER  FOR  POLLING 

-MIT: 

IN 

ICTL 

sREAD  INTERRUPT  STATUS 

AN  I 

3 

j CHECK  THE  I NT  3  BIT 

JZ 

WAIT 

.■LOOP  IF  NOT  SET 

IN 

ACK 

: TURN  OFF  THE  INTERRUPT 

MOV 

A.C 

s  SEND  THE  LO  BYTE 

OUT 

LO 

MOV 

A.e 

i SEND  THE  HI  BYTE 

OUT 

HI 

RET 

(VARIABLES 

MOVNUM: 

BS 

l 

: INCREMENT  F ACTOR 

XCODRDs 

DS 

1 

! X7-X0  OF  >  COORDINATE 

XHIEITs 

DS 

1 

;LSB  IS  X8  OF  ‘COORD 

YCOORD: 

DS 

1 

•,  Y7-Y0  OF  YCOORD  I NATE 

HICODI s 

OS 

1 

; HI  BYTE  OF  1ST  OPCODE 

LOCODl! 

DS 

1 

SLOW  BYTE  OF  1ST  DECODE 

HI C0D2: 

DS 

!. 

; HI  BYTE  OF  2ND  CFO COE 

L0C0D2: 

DS 

1 

; LOW  BYTE  OF  2ND  OPCODE 

ENO 
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: HP. MAC 

-  USED 

TO  PLOT  ON  HP7475A 

RCONF 

EQU 

1  {REAP  A  CHARACTER 

i:p 

EQU 

ODH 

LF 

ECU 

OAK 

WCONF 

EQU 

o 

*» 

CONSOLE  WRITE  FUNCTION 

HPBYT 

EQU 

5 

OUTPUT  FUNCTION  SENDS  OUT  RS232 

330S 

EQU 

5 

CPM  OUTPUT  FUNCTION 

RBQOT 

EQU 

0 

REBOOTS  SYSTEM 

RE’I.'FF 

EQU 

10 

FUNCTION  TO  READ  CONSOLE  BUFFER 

ET> 

EQU 

3 

•LABEL  TERMJNATOR 

: ENTER  AND  PLOT 

LABEL 

COMNT : :  CALL 

SPMSG 

DE 

CR-LF,  'ENTER  LABEL-40  CHARACTER  MrtX!\CR 

LX  I 

H.MCHAR4-1 

MV  I 

M.  0 

ZERO  CHAF:  COUNT 

OCX 

H 

POINT  AT  LINE  LENGTH 

MV  I 

M.  30 

AND  SET  TO  30 

XCHG 

MCHAR  ADDRESS  TO  DE 

MV  I 

CrRBUFF 

READ  BUFFER  FUNCTION 

CALL 

BDOS 

READ  A  LINE 

LXI 

H , MCHAR+ 1  ; POINT  AT  CHAF  COUNT 

MOV 

E,M 

k  PUT  IN  LSE  OF  DE 

MV  I 

D.  3 

0  MSB  OF  n E 

DAD 

D 

ADD  TC  ADDRESS  IN  HL 

INX 

H 

POINT  AT  THE  END  OF  STRING 

MV  I 

M.O 

INSERT  TERMINATOF 

! SEND  A 

LABEL 

TO  THE  HP 

HPMSG 

CALL 

HP  I  NS 

OB 

'  LB 1  •' 

LXI 

H.MCHAPf 

2  {POINT  AT  THE  START 

OF  THE  LAE EL 

HF'OUT : 

MOV 

A,M 

{GET  CHAR 

IRA 

A 

■  SEE  IF  IT  fS  0 

.7 

LAST 

; AND  FINISH  IF  v 

'.ALL 

CTOHP 

:0R  SENT  CHAR  ~C  Hc' 

INX 

H 

; POINT  AT  THE  NEXT  CHAP 

..HP 

HF’OUT 

LAST: 

CALL 

HF  [NS 

*  FINISH  LAE EL  AND  STORE  "HE 

FEN 

DB 

ETX.  !  " 

PET 

f INSTRUCTION  "0  HP  e_OTTEF 


XTHL 

: EXCHANGE  H_  hN  tos 

XRA 

A 

•  CLEAR  FLAGS  AND  ACCUM'.I.fTOF 

MOV 

A.M 

:  GET  A  CHARACTER  -  >  FLAG  SET  IF  C 

CPI 

•  i  ' 
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INX 

H  (POINT  TO  NEXT  CHAR 

XTHL 

t RESTORE  STAfc  FOR  RETURN 

RZ 

: RETURN  IF  DONE 

CALL 

CTOHP  ;SEND  CHARACTER  to  HP  PLOTTEP 

JMP 

HP  INS 

; CHARACTER  TO 

HP  PLOTTER 

CTOHP:  PUSH 

E 

PUSH 

C 

PUSH 

H 

MV  I 

C, HPBYT 

MOV 

E,  A  ;CHAR  TO  £  FOR  OUTPUT 

CALI 

BOOS  ? OUTPUT  TO  CP/M 

POP 

H 

POP 

0 

POP 

B 

RET 

;  THIS  PRINTS 

THE  FIRST  LINE  IN  THE  FPOGRAh  AFTER  THE  CA! 

: ON  THE  SCREEN 

SPMSG:  XTHL 

; EXCHANGE  HL  AND  TOS 

XRA 

A  .-CLEAR  FLAGS  ANC  ACCUMULATOR 

ADD 

M  ;GET  A  CHARACTER 

INX 

H  : POINT  AT  THE  NEXT  CHARACTEF 

X’HL 

: RESET  TOS  AND  HL 

RZ 

: RETURN  Ir  DONE 

CALL 

CO 

JMP 

SPM3G 

! THIS  RCUTINE 

SENGS  THE  ET i  CHARACTER 

PRFT ‘ : :  CALL 

HFINS 

OB 

ETX 

RET 

; 'HE  CHARACTER  IN  REGISTER  A  IS  SEN’  TO  THE  SCREEN 

CO:  PUSH 

E 

PUSH 

0 

PUSH 

H 

MV  I 

:,WCCNF  {SELECT  VIR!TE  FUNC’ICN 

MOV 

E. A  : CHAR  TO  E 

CALL 

EDCS 

POP 

H 

POP 

Cl 

POP 

E 

RET 

MASS'-'::  CALL 

HP  INS 

DE 

SP1. 5, 3(SC:>,10. -2. 12*PAJ.-1:  CP-T. -1.3; 

CE 

'LBMASS  UNITS  -.  ETX,  SP  FAi  :-,  12  SF:! 

RET 

APPENDIX 
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TlliUC: :  CALL 
DE 
DE 
RET 


HP  I  NS 

'SR1.5.3:SC0, 10,-2, 12;FA5, -1; CP-5. 5,-1 -3: 
^NANOSECOND'S-  .  ETX, ' SP;  FA  10, 12;  SR:  ! ' 


TIMU1 : :  CALL 
DB 
DB 
REr 


HP  INS 

'SRI . 5, 3?  SCO,  10,  -2. 1 2; PA? .  -1 :  CP-*  .-1.3;  •' 
'LBMICR3SEC0NDS'  ,ETX.  'SP;  PA 1C . 12;  SR- ! ' 


TIMU2: ;  CALL 
DB 
DE 
RET 


HP  INS 

•  SRI . 5, 3; SCO . 10, -2 . 12;  PAS, - 1 ;  CP-e  -1.3; 
'LBM  ILL  I  SECONDS '.ETX,  SPsPAJO,  12:SR;  ‘ 


PS  -1AR:  DS 
END 
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; START  OF  LAEEL  BUFFER 


BLOCK  DATA  COMBLK 
COMliON/SHAREri/XMIN ,  D1 CF,  NET: 
END 


-30  =SAFLT2 

LS  :•  3APLT2 ' N , COKELk  ,  B: OVLAV,  CURSOR,  HP,  E •  HMJTIL IS ,  S: PL0TL32S, E  AF'J,  FORLIS- 
B:FI>ADP  -APLOT  SAFLT2 
"30  =:-AP_OT 
ERA  S APLOT. FOR 

LKC  SAPLCT'N,  COMELK  .  3:  OVLA « ,  OE^IT .  3:  HMUT I L  1 3,  B;  AFU.  FORLIE  '  S ,  3APLCT /  E 
ERA  SAPLOT. PEL 
ERA  3APLT2.*EL 


3, SAFLT2/Y/E 


APPENDIX 
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